home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
menu.bas
< prev
next >
Wrap
BASIC Source File
|
1985-06-03
|
2KB
|
31 lines
10 DIM PROG$(64) 'MENU PROGRAM - Creates Menus of Basic Files DOS 2.*
15 'This program is a revision of an earlier DOS 1.* ver
20 SCREEN 0: KEY OFF:KEY 2,"RUN"+CHR$(34)+"MENU.BAS"+CHR$(13) 'Return to Menu
30 CLS:WIDTH 80:COLOR 0,0:FILES "*.BAS" 'DISPLAY BASIC FILNAMES invisibly
40 FOR DR%=2 TO 24 'Row on screen to be Read
50 FOR DC%=0 TO 65 STEP 18 'File Names are in Four Columns
60 IF CHR$(SCREEN(DR%,DC%+1))=" " THEN 130 'Stop when no more File names
70 AR%=AR%+1 'Go to next row in Array
80 FOR L%=1 TO 8 'Read first 8 characters of File name
90 PROG$(AR%)=PROG$(AR%)+CHR$(SCREEN(DR%,DC%+L%)) 'Add name to Array
100 NEXT: NEXT: NEXT
120 WIDTH 80
130 LOCATE 1,1: COLOR 14,0: PRINT "BASIC Programs on this diskette:"
140 FOR DC%=1 TO 66 STEP 13 'Display file names in 6 columns
150 FOR DR%=3 TO 14 'from screen row 3 to 14
160 I%=I%+1 ' Go to next row in Array
170 IF PROG$(I%)="" THEN 200 ELSE LOCATE DR%,DC%
175 COLOR 0,7:PRINT USING "##";I%;:
176 COLOR 7,0: PRINT " ";PROG$(I%); 'Stop when Array is empty
180 NEXT DR%
190 NEXT DC%
200 LOCATE 18,1: INPUT "ENTER NUMBER OF PROGRAM DESIRED (Press 0 to Exit): ";P
205 IF P=0 THEN WIDTH 80: KEY 2, "RUN"+CHR$(13): CLS: KEY ON: SYSTEM: END
210 LOCATE 20,1: COLOR 14,0: PRINT "PRESS (F2) TO RETURN TO THIS MENU WHEN FINISHED";
211 SOUND 32000,25: SOUND 32000,1
215 PRINT "-------------------------------------------------------------------------------"
220 LOCATE 22,1: COLOR 7,0: PRINT "If Pressing (F2) Doesn't Return"
222 LOCATE 23,1: PRINT "You to This Menu, Press (CTRL/BREAK)"
224 LOCATE 24,1: PRINT "and Then Press (F2)."
240 RUN PROG$(P) 'RUN the Program Selected